home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 078 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 078 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf
/
c
/
stefan.mod
< prev
next >
Wrap
Text File
|
1988-08-14
|
474b
|
19 lines
MODULE Stefan;
FROM SYSTEM IMPORT ADR;
FROM Intuition IMPORT DisplayAlert;
VAR
al: RECORD
x1: CARDINAL; s1: ARRAY [0..59] OF CHAR;
x2: CARDINAL; s2: ARRAY [0..37] OF CHAR;
END;
BEGIN
al.s1:="*Vertrieb: Stefan Ossowski, Veronikastr. 33, 4300 Essen 1 ";
al.x1:=96; al.s1[0]:=CHAR(50); al.s1[59]:=CHAR(1);
al.s2:="* Telefon: 0201/788778 T A I F U N";
al.x2:=176; al.s2[0]:=CHAR(90); al.s2[37]:=CHAR(0);
IF DisplayAlert(0, ADR(al), 150) THEN END
END Stefan .